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INAL = end of EDT processing’ 
NAL ( ! End of Aa | processi ng 

{DENT = 'v04-000' ! File: FINAL.BLI Edit: JBS1023 
BEGIN 


See RRA AAA AAA AREA AAA AAA AAA EERE RARER AAA AAA REARS 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 


; 1 0001 

oa Se Bn 

; 00 

; 4 0004 

: 5 0005 1 

; 6 0006 1 

; 7 0007 1 

; 8 0008 1 

3 3 0009 1 . 

; 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * 

: V Bats ! ~ ALL RIGHTS RESERVED. * 

g i® ® } 
: ig $O18 1 !® THIS SOFTWARE is FURNISHED ues A LICENSE AND MAY BE oe AND corte * 
ee | 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH biccN SE AND WITH THE * 
. 0015 1 !* INCLUSION OF THE ABOVE copyelent NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MARE AVAILABLE TO ANY * 

ee 0017 1 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
: 18 ooi8 ! :* TRANSFERRED. . 

: '® x 
H 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
A 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
; $$ tt) : ? CORPORATION. * 

2 '* a 

P4 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; @ 0026 1 !* > 

; a 0027 1 !* * 

ed 28 0028 1 Lee RARER RAAT EAA ARATE AEE 

: 0029 1! 

: = 0030 1 

; 31 0031 1 !++ 

i. 0035 1! FACILITY: EDT -- The DEC Standard Editor 
, 3 0033 1! 
; 0034 1 ! ABSTRACT: 

; & 0035 1! | 
; 0036 1! End of EDT processing. 

oe 0037 1 i | 
: 4 4 : : ENVIRONMENT: Runs at any access mode - AST reentrant 

; re Ones : AUTHOR: Bob Kushlis, CREATION DATE: August 6, 1979 

; | «42 0042 1 ! MODIFIED BY: 

$ 43 004 1! 

3; (44 0044 1 ! 1-001 = Original. DJS 18-FEB-1981. This module was created by 

3; 6 «645 0045 1! extracting routine EDTS$TERMIN from module TINPUT. ; | 
3 48 pong : : 1-002 - Re ogulertze ze pheggers and call EDTS$$WF_CLS to close the work file. 
s 8 0048 1°! 1-003 - Fix Rios y ies and file gene. -188t 04-Mar-1981 
: 49 0049 1 ! 1-004 = Fix the file name. JBS 11-M 

; 0050 1! e's '¢ 4 = Change SY_EXIT te EDTSS$SYS nie . JBS 31-Mar-1981 
; 0051 1! 1~}08 - Change thé handli ng of deléting the OAR file. STS, i =Jan-1982 
; 2g B236 1! 07 - Use routine EDTSWORKIO to close york ile, S 08-Fe 

. = 0053 1! 1-008 - Deallocate workfile descriptor, EDT Sc. STS ate oPey-1982 

ae. Boe 1 ! 1-009 = Add Literals for cot ibis c paraheters at -Mar-1982 

: 55 055 1 ! 1-010 = Don't reference EDT$$G 3-Mar- 3 
;s 0056 1! 1-011 - Check for open files 654° close them. STS 07-Apr-1982 

2 oF 0057 1 ! 1-012 - Print messages on CLOSE errors. JBS 12-Apr-1982 
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ee ean ARTO SBBE:GE pid datAaneRz tb? 


Adq a a close of the help file for yas, SMB 28-May-1982 
nt a better A. ssage if the work f iy fails to °bh: {85, aaah 
3 ty the ort ginal terminal width i yee _ Be “Ju 
he or 1 external declarations for ed . 10-Jul-1982 
fate a routine to reset the screen width. 2 
Make use of the bit masks in the options words Sts i ae 
Fix up references to EDT$M tonjour JBS 


Page 2 
ERCTEINAL. BLI;1 . (1) 


| 
Make sure everything is put to journal file. “SHO OB-0ct 4382 
Remove the deallocation of ace zwf_desc. STS 11=Nov- "9§e 
Only set the screen width back if "it has changed. ne 17-Feb-1982 
Improve the appearance of the Listing. JBS 14-Jun-19 


1 - 
EDTSF INAL FINAL = end of EDT processin 1b-5¢ 4 8 VAX-11 Bliss-32 V4.0-74 Pa 
1042000 arat tions , . 14S 7138 98: 33 86 DISKSVMSMASTER: (CE HDi SRCSFINAL .BLI:1 (2). 
XSBTTL ‘Declarations’ 
. { 
TABLE OF CONTENTS: 


A 
ISK 


REQUIRE ‘EDTSRC: TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSTERMIN; 


; INCLUDE FILES: 


EXTERNAL REFERENCES: 
In the routine 


: 1 

: 1 

: 1 

$ 1 

§ 1 

s 1 

$ 1 

s 1 

3 1 

3 1 

: 1 

3 4 

: , 

3 4 ! REQUIRE "EDTSRC:EDTREQ'; 

; 88 7.3 

> 89 1 | MACROS: ; 
:; 90 1! ; 
: 91 ¢€ NONE ; 
: ve 1; ‘ 
; 93 1 ! EQUATED SYMBOLS: | ‘ 
; 94 13 : 
3 95 1 : 
; 96 1 EXTERNAL LITERAL : 
bs 1 sEDTSK: ~InpUt Pie 
; 299 1 EDT$SK_COMMAND_FILE, 

; 100 1 EDTSK JOURNAL. FILE, 

; 101 j EN TSK_CLOSE, 

; 102 1 EDTSK_CLOSE_DEL; 

: 103 1 

: 104 1 BIND 

s 105 1 vT100 nt pF UPLIT (ZSTRING ( 

: 106 1 XTHAR (ASC C_K_ESC), ‘Cm’ ' Video attributes 

: 107 XCHAR (ASCCKTESC). ")B'S): i G1 to ASCII | 

; 

: 109 1 LITERAL 

; 110 1 VT100_RESET_LEN = 6; 

. 33% 1 

5 Ne 1 

3 1 1 | OWN STORAGE: | 

. 114 1 | 

: 115 1 NONE 

s 116 1 

s Fir 1 

; 118 1 

3; 119 1 
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EDTSFINAL EDTSFINAL d of EDT i 16 139-1986 8 VAX=11 8 32 Vv p 5 8 
- end o rocessin -Sep- s- age 
v04-000 EDTSSTERMIN = end of cbt processing 1a-8ep 1984 1 93: 33; 66 Disk KSVMEM STER: ceo 1 SRCSFINAL. BLI;1 . (3). 
; «178 ree 3 
; #179 74 EXTERNAL : 
; 180 750 EDTSS$G_HELP_SET, ! Is the Help File open ? ; 
; 181 0751 EDT$$Z_LBR_INDEX, i Help file control index : 
: 18 07 g EDT$$2_WF_BESC : BLOCK (8, BYTE); : 
; 18 075 : 
> «(184 0754 ZF I : 
; «6185 Br 2? : 
3; «(186 738 EXTERNA ; 
: 187 075 EDT$$G_TI_WID ' terminal's current width ; 
; 188 0758 EDTS$CcTI RESET, ! Has the terminal been reset | : 
; 189 0759 EDTS$$G_INPUT OPN, ! main input ie oor flag : 
; 190 Brey EDT$$G_CMD_OPN, ! command file o flag : 
: 191 761 EDTS$$G_EXITD, i Editor exit flog. F 
3 135 B76 EDTSSV_ OPTIONS BITVECTOR (32), ! Various flags . 
; #19 076 EDTS$$G_SAV TIWID, ' original terminal width : 
: 132 The EDT$$G_T1 V TYP: ! terminal type | : 
3 138 ares am MESSAGES ((WORFILCLO, INPFILCLO, JOUFILCLO, COMFILCLO, HLPFILCLO)); ; 
: 198 0768 2! Close the work Tite On VMS deallocate the record descriptor and | . 
: 199 0769 ' close the Help File : 
; 200 0770 t= . 
: 201 0771 ; 
3 $06 L ore ZIF XBLISS (BLISS32) ; 
: 20 077 XTHEN : 
: 204 0774 5 
: 205 0775 IF (.EDTS$G_HELP_SET) 3 
; $06 0776 THEN : 
: 20 0777 : 
g 43 oe IF ( NOT LBRSCLOSE (EDT$$Z_LBR_INDEX)) THEN EDTSSFMT_MSG (EDTS_HLPFILCLO); | : 
3 $0 0780 2FI : 
s ei 0781 ; 
: 12 078¢ IF ( NOT (EDTSSCALLWIO (EDTSK_CLOSE_DEL, 0, 0))) | ; 
s et 078 THEN . 
3 216 0784 BEGIN ‘ 
3 215 0785 EDTSSFMT_MSG (EDT$_WORFILCLO); ; 
: 216 0786 EDTSSFATAL_IOERR (J; | 3 
: 217 0787 § END; . 
; 218 0788 : 
; $38 0789 '¢ 3 
$ 20 0790 i Set the terminal characteristics back to what they were when we : 
: 1 078) !' invoked EDT. ‘ 
3 é 136 i. : 
; 079 : 
3 24 794 IF (.EDTS$G_TI_TYP EQL TERM_VT100) : 
: $2 795 THEN : 
: $ 736 BEGIN . 
s € 79 EDTSSFRT LIT (VT1I00_RESET, VT1I00_RESET_LEN); 3 
; 8 738 EDTSSOUT_FMTBUF ();~ | : 
i $% 600 ‘ | 
3 231 80 IF (.EDTS$G_TI_RESET) THEN EDTSSTI_RES (); 
3 33 0808 IF (.EDTS$G_TI_WID NEQ .EDTS$G_SAV_TIWID) THEN EDTSSSC_SETWID (.EDTS$G_SAV_TIWID); 


ee 7 
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4000 EDTSSTERMIN = end of ebt processing eae 1 90:33 ‘6 NT EKSVMEMASTERSCEDT SRC FINAL.BLI;1 ” sae 
; 5 Hk 4 | 3 
: $ 88 } If the input file is still open, close it. | : 
: 238 B08 | : 
; 9 8 09 IF_(.EDTS$$G_INPUT_OPN) : 
Biba 8 Fle aol 
; 4¢ 6 1 IF_( NOT (EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_INPUT_FILE, 0, 0))) | ; 
> 2h 81 THEN | 
: 5a4 0814 BEGIN | ; 
: 45 0815 EDTSSFMT_MSG (EDT$_INPFILCLO); : 
H $78 . 16 EDTSSFATAL_IOERR (J; : 
: $05 OBIe 3 1s | - 
; $29 a If the command file is still open, close it. | : 
: 25 08 : 
: $38 0858 IF _.EDTS$G_CMD_OPN : 
bie ae : 
; $28 ty ren NOT (EDTSSCALLFIO (EDTSK_CLOSE, EDTSK_COMMAND_FILE, 0, 0))) : 
: 258 0828 BEGIN ; 
; 259 0829 EDTSSFMT_MSG (EDT$_COMFILCLO); $ 
3 260 0830 EDTSSFATAL_IOERR (J; ; 
; 261 0831 END; 5 
2 ee ae: 
> 264 0834 2 | Close the journal file, deleting it if EDTS$G_EXITD is 1. | ; 
; 265 0835 ! Failure to properly close the journal file is fatal. . 
i Bee pd 
: 268 0838 IF ((.EDTS$V_OPTIONS AND EDTS$M_NOJOURNAL) EQL 0) =! NOT /NOJOURNAL 
; 269 0839 THE 
; 270 0840 BEGIN 
, ery 0841 
: 27 ak LOCAL 
: 3h Once mes 
: $2 Oeee 3 IF (.EDTSSG_EXITD EQL 1) THEN CODE = EDTSK_CLOSE_DEL ELSE CODE = EDTSK_CLOSE; | 
: A O82? ; IF (.EDTS$SG_EXITD NEQ 1) THEN EDTSSTI_FLUSHJOUFI (2C'T"); 
; 79 tk 4 IF ( NOT (EDTSSCALLFIO (.CODE, EDTSK_JOURNAL_FILE, 0, 0))) 
: 280 0850 3 THEN 
: 281 0851 4 BEGIN 
; ag 6836 4 EDTSSFMT_MSG (EDT$_JOUFILCLO); 
: 28 0853 4 EDTSSFATAL_IOERR (J; 
: 84 baee END; 
: 285 855 | 
; 288 0838 RETURN (EDTS$$SYS_EXI (1)); 
; 289 5 END; ' of routine EDTSSTERMIN 
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v04=000 EDTSSTERMIN - end of EDT processing 1 30071382 99 $3:88 DISKSVMSMASTER: LE SRCSFINAL BLT: . (33 | 
000000006 FB 000 CALLS #0, EDTSSTI_RES ; : 
39 990000006 6 BB O88 4$: MOVL EDTS$c. SAV TIWID, RO + 0803 : 
0000006 D1 6 : CMPL EDTS$6_11_01D, rb : ; 
9 13 0009 BEQL $ F : 
0 pd 00099 PUSHL RO : ; 
000000006 00 1 FB 09 CALLS #1 gorsssc SETWID : : 
1¢ 000900006 00 5 OA 5$: BLBC = EDT$$G_INPUT_OPN, 6$ : 0809 : 
E ?C OOOA CLRQ  =(SP) : 0812 : 
000000006 gE 43 ie BUSHEL opOTSK. INPUT_FILE : é 
66 4 FB 0083 CALLS #4, EDTS$SCALLFIO : : 
0c O.€ 086 LBS = RO gs F : 
000000006 8F DD 0008 PUSHL  #EDT INPE LL CLO + 0815 : 
63 o1 FB OOOBF CALLS #1, EDTSSFMT_MSG ; : 
64 0 FB b0Ce CALLS #0 EDTSSFATAL IOERR : 0816 ; 
1C¢ 000000006 00 59 000C5 6$ BLBC = EDT$$G_CMD_OPN> 7$ + 0823 ; 
7E 7C booce CLRQ  =(SP) + 0826 ; 
000000006 er DD OOOCE PUSHL rk. COMMAND _F ILE F : 
5 DD 00004 PUSHL R ; : 
66 04 FB 00006 CALLS DTSSCALLFIO ; : 
0c 50 £8 00009 BLBS : : 
43 000000006 BF bd 9000¢ PUSHL caer ; 0829 : 
64 00 FB waits: CALLS EDTSSFATAL_IOERR + 0830 3 
G F D E BITL ED V OPTIONS; #EDTSM_NOJOURNAL é : 
000000006 8F 000000006 00 d3 O0Es 7$ BITL EDfss $ 0838 
50 000000006 00 06 O00F MOVL EDTS$G_EXITD, RO > 0845 ; 
05 12 OOOFF BNEG 8$° : F 
52 57 00 00101 MOVL  R7, CODE ; : 
03 11 00104 BRB 9$ : : 
52 55 00 00106 83: MOVL RS, CODE ; : 
01 50 D1 00109 9$: CMPL = RO. #1 > 0847 : 
0B 13 0010C BEQL 10 : : 
7E 54 BF 9A 90106 MOVZBL #84, F : 
000000006 00 1 FB 00112 Hie CALLS *eDTSsi1 _FLUSHJOUF I Fenian : 
000000006 BF DD 00118 PUSHL #EDTSK_JOURNAL_F ILE : : 
66 2 fe Bat 3 CALLS #4, EDTSSCALLFIO g : 
0c 0 €E8 00126 BLBS ; F 
000000006 8F ODD 001 9 PUSHL HEDTS JOUF ILCLO > 0852 3 
63 01 FB OO12F CALLS EDTSSFMT_MSG ; : 
64 00 FB 001 : CALLS Ay EDTSSFATAC 1OERR : 0853 3 
1 DD 00135 11$:  PUSHL @# : 0858 : 
000000006 00 01 FB 001 7 CALLS #1, EDT$$SYS_EXI : : 
04 0013€ RET > 0859 : 
; Routine Size: 319 bytes, Routine Base: _EDTSCODE + 0008 : 
j . 
: 
: 


: rth y tase 09: 45-6 
3 Lines/CPU Min: 3130 

3 yocenne/ Sy Hips 9101 

: pee Used: 113 pages 
; Compilation Complete 
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Ou. 000 EDTSSTERMIN = end of cbt processing 1a-Sep- 198 99: $3: %3 DISKSVMSMASTER: a i sac FINAL.BLI;1 . (4) 
> 293 p86e 1 END ! of module EDTSFINAL ‘ 
> 294 08635 1 
3 €95 0864 0 ELUDOM : 
Pea! 
; PSECT SUMMARY | : 
; Name Bytes Attributes | : 
;  LEDTSCODE 327 NOVEC,NOWRT, RD, EXE, SHR, L&L, REL, CON, PIC,ALIGN(2) | : 
tea} 
: Library Statistics : 
BR eS eR ee a Syabe(g ecwcecce Pages Processing | : 
3 File Total Loaded Percent Mapped Time ‘ 
: _$255$DUA28: : EDT. SRCJEDT -L 32; 1 377 3 0 40 00:00.2 : 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 ; 
: COMMAND QUALIFIERS : 
; Stee: 319 code + 8 data bytes ; 
un Time 00:16.6 : 


: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=L1S$:F INAL/OBJ=OBJ$:F INAL MSRCS$:F INAL.BLI/UPDATE=(ENHS:F INAL) | 
| 


0133 AH-BT13A | | T CORPORATION 
: VAX/VMS_V4.0 | PROPRIETARY 


